﻿Public Class fDemo
    Private Sub fDemo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lT As String
        Dim lG As String
        Dim lB As String

        With URibbon1
            lT = "Admin"
            .TabAdd(lT, True, "")
            lG = "Server Settings"
            .TabGroupAdd(lT, lG, True, "")
            .TabGroupButtonAdd(lT, lG, "Processes", True, ToolBarImages.Images.Item("svr"), True, "Running proceses")
            .TabGroupButtonAdd(lT, lG, "Services", True, ToolBarImages.Images.Item("Img3"), False, "Service Statuses")
            lG = "Server Logs"
            .TabGroupAdd(lT, lG, False, "")
            .TabGroupButtonAdd(lT, lG, "Application Log", True, ToolBarImages.Images.Item("Graph"), False, "")
            .TabGroupButtonAdd(lT, lG, "Server Log", True, ToolBarImages.Images.Item("Save"), False, "")
            .TabGroupButtonAdd(lT, lG, "Custom Log", True, ToolBarImages.Images.Item("Save"), False, "Some other log type")

            lT = "Human Resources"
            .TabAdd(lT, True, "Testing2")
            lG = "Interface"
            .TabGroupAdd(lT, lG, False, "")
            .TabGroupButtonAdd(lT, lG, "Theme", True, ToolBarImages.Images.Item("Img1"), False, "")
            .TabGroupButtonAdd(lT, lG, "Events", True, ToolBarImages.Images.Item("Graph"), False, "")
            .TabGroupButtonAdd(lT, lG, "Messages", True, ToolBarImages.Images.Item("Img3"), False, "")
            .TabGroupButtonAdd(lT, lG, "Misc", True, ToolBarImages.Images.Item("Save"), False, "")
            lG = "Settings"
            .TabGroupAdd(lT, lG, False, "")
            .TabGroupButtonAdd(lT, lG, "Users", True, ToolBarImages.Images.Item("People"), False, "")
            .TabGroupButtonAdd(lT, lG, "Administrators", True, ToolBarImages.Images.Item("Person"), False, "")

            lT = "Inventory Management"
            .TabAdd(lT, True, "")
            lG = "Config"
            .TabGroupAdd(lT, lG, False, "")
            .TabGroupButtonAdd(lT, lG, "Bins", True, ToolBarImages.Images.Item("Img1"), False, "")
            lB = "Materials"
            .TabGroupButtonAdd(lT, lG, lB, True, ToolBarImages.Images.Item("Img1"), True, "")
            .TabGroupButtonMenuAdd(lT, lG, lB, "Materials", Nothing)
            .TabGroupButtonMenuAdd(lT, lG, lB, "Material Type", Nothing)
            .TabGroupButtonMenuAdd(lT, lG, lB, "Unit of Measure", Nothing)
            .TabGroupButtonMenuAdd(lT, lG, lB, "Groups", Nothing)
        End With
    End Sub

    Private Sub URibbon1_ClickedTab(ByVal zID As String, ByVal zTabText As String) Handles URibbon1.ClickedTab
        If ListBox1.Items.Count = 15 Then ListBox1.Items.RemoveAt(0)
        ListBox1.Items.Add(zID & " = (T)" & zTabText)
    End Sub

    Private Sub URibbon1_ClickedTabGroup(ByVal zID As String, ByVal zTabText As String, ByVal zGroupText As String) Handles URibbon1.ClickedTabGroup
        If ListBox1.Items.Count = 15 Then ListBox1.Items.RemoveAt(0)
        ListBox1.Items.Add(zID & " = (T)" & zTabText & " (G)" & zGroupText)
    End Sub

    Private Sub URibbon1_ClickedTabGroupButton(ByVal zID As String, ByVal zTabText As String, ByVal zGroupText As String, ByVal zButtonText As String) Handles URibbon1.ClickedTabGroupButton
        If ListBox1.Items.Count = 15 Then ListBox1.Items.RemoveAt(0)
        ListBox1.Items.Add(zID & " = (T)" & zTabText & " (G)" & zGroupText & " (B)" & zButtonText)
    End Sub

    Private Sub URibbon1_ClickedTabGroupButtonMenu(ByVal zID As String, ByVal zTabText As String, ByVal zGroupText As String, ByVal zButtonText As String, ByVal zMenuText As String) Handles URibbon1.ClickedTabGroupButtonMenu
        If ListBox1.Items.Count = 15 Then ListBox1.Items.RemoveAt(0)
        ListBox1.Items.Add(zID & " = (T)" & zTabText & " (G)" & zGroupText & " (B)" & zButtonText & " (M)" & zMenuText)
    End Sub

    Private Sub URibbon1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles URibbon1.Load

    End Sub
End Class